home *** CD-ROM | disk | FTP | other *** search
- Program ex6;
-
- { Program to demonstrate TRect.Grow }
-
- Uses objects;
-
-
- Var ARect,BRect : TRect;
-
- begin
- ARect.Assign(10,10,20,20);
- ARect.Grow(5,5);
- // Brect should be where new ARect is.
- BRect.Assign(5,5,25,25);
- If ARect.Equals(BRect) Then
- Writeln ('ARect equals BRect')
- Else
- Writeln ('ARect does not equal BRect !');
- end.